RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ° 
RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ~=RRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


Bie LR tal 


Ager A NR: Rae ILENE ak : es 


$i 

Sy! 

NT! 

NT! 

NT! 

NT! 

NT! 

NT! 

MMM MMP SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
HM MPA ME MM SSS NT! 
MMMM MM SSS NT! 
MMMMMM  MMMMMM SSS NT! 
MMM MMM) «6OMMM «SSS NT! 
MMM MMM MMM SSS NT! 
MMM MMM MMM «SSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
MMB MMM $$$ NT! 
MMM MMM $ss NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS | NTS 
MMM MMM SSSSSSSSSSSS NTS 
NT! 

NT! 

NT! 

NT! 

| NT! 

| NT! 

| NT! 

NT! 


pede pera: 
RRRRRRRR MM MM HEH JJ 000000 UU UU RRRRRRRR NN NN LL 
RRRRRRRR MM MM 333 JJ 000000 UU UU RRRRRRRR NN NN LL 
RR RR MMMM MMMM 33 33 JJ 00 00 UU UU RR RR NN N LL 
RR RR MMMM MMMM 3 JJ 00 0O UU UU RR RR NN NN LL 
RR RR MM MM MM 33 JJ 00 00 UU UU RR RR NNNN NN LL 
RR RR MM MM MM 33 JJ 00 00 UU UU RR RR NNNN NN LL 
RRRRRRRR MM MM 3 JJ 00 00 UU UU RRRRRRRR NN NN NN LL 
RRRRRRRR MM MM 3 JJ 00 00 UU UU RRRRRRRR NN NN NN LL 
RR RR MM MM 33 JJ JJ 00 00 UU UU RR RR NN NNNN LL 
RR RR MM MM 3 JJ JJ 00 00 UU UU RR RR NN NNNN LL 
RR R MM MM 33 33 JJ JJ 00 00 UU UU RR RR NN NN LL eeee 
RR RR MM MM 33 33 J JJ 00 00 UU UU RR RR NN NN LL cece 
RR RR MM MM 333333 JJJJJJ 000000 UUUUUUUUUU RR RR NN NN LLLLLLLLLL eee 
RR RR MM MM 333333 JJJJJJ 000000 UUUUUUUUUU RR RR WN NN LLLLLLLLLL eoee 
LL 1111 SSSSSSSS 
LL I1111 SSSSSSSS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII] SSSSSSSS 
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MODULE RM3JOURNL “SoU (BL 18832) 
= 
) 


BEGIN 


ASSESSES ISI ISL ISTE T ESET ETT TTT TPC e cece cece cece cies iirc itr iii ici iii titi 
' 


1 

1 

1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
: 't ALL RIGHTS RESERVED 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


H 1 01 

; ¢ 0009 

3 44 

H & 004 

 ¢ 0006 

; 7 0009 « 
; 8 0008 * 
; ‘s 0009 * 
Ps 10 0010 * 
Bee + 0011 'e * 
; 1 pore '® THIS SOFTWARE 44 pent sneo UNDER A LICENSE AND MAY BE USED AND COPIED * 
ek 001 '® ah IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 0014 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 15 0015 '® copies THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 16 0016 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
s i pote :* TRANSFERRED. ® 
3 ‘® * 
; 19 0019 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE . 
; 20 0020 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $3 b054 os CORPORATION. * 
s ‘t ® 
: $6 $053 | !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3; @ 0025 1 !* . 
; «2 0026 1 !* * 
3 e7 0027 1 SRR RRR ERATE EERE REET ARRERRAERERAERREER EEE 
; ee 0028 1 

; $3 594 1 !4+ 

; 0 0030 1! 

; $ ait : FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 

3s. 3 $033 1 ! ABSTRACT: This module contains routine specific for Recovery Unit 

3 $ sit: : Journaling and RU rollback recovery of RMS32 ISAM files. 

; 0036 1! sf 
; ¢ 0037 1 ! ENVIRONMENT: 

; 8 0038 1! 

; 39 0039 1! VAX/VMS OPERATING SYSTEM 

; 40 0040 1! 

; 41 0041 1 !-- 

; 42 Bbe§ 1 

: 43 004 a 

$ | ore : AUTHOR: Todd M. Katz CREATION DATE: 08-Jan-82 

; 46 004 1 ! MODIFIED BY: 

; «47 0047 1! ‘ 

; «48 0048 1! v03-011 DAS0002 David Solomon 25-Mar-1984 

; $3 bop : } Fix broken branches. 

5s 3 0051 1! v03-010 paspog David Solomon 01-Jul-1983 

; 26 B036 : ill in correct value for RJRSB_ENTRY_TYPE. 

; $84 1! v03-009 TSKO00t Tamar Krichevsky 7-Jun-1983 

; 0055 1! Move module to RMS$RMS_JOURNAL psect. Replace JNLDEF.R32 

; * 0056 1! with RMSINTDEF.L32. Change addressing mode of RMSRU. RECLAIM 
; of 0057 1! to long relative. 
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14-Sep- 1:26 RMS .SRCIRMSJOURNL .B32;1 (1) 
v03-008 KPLO0001 Peter Lieberwirth 26-May-1983 
New format of RJR. 
V03-007 TMK0003 Todd M. Katz 03-Apr-1983 


Whenever refering to the actual bucket contents being journalled 
in RMSAI_AND_B1_5, refer to the bucket in the journalling buffer 
and not fo the Bucket controlled by the arguement BDB. Note that 
in the case of Al Journalling, these two buckets will be the 
same, but this will not be so in the case of BI Journalling. 


v03-006 TMKO003 Todd M. Katz 27-Mar-1983 


1. Change the Linkage of RMSRU_JOURNAL3 to RLS$RABREG_67. 
¢: Change the Linkage of RMSWRTJNL to RLSRABREG_4. — 
. cnenee the routine RMSRU_JOURNALS to reflect the Linkage 
changes. 
4. Add the routine RMSAI_AND_BI_3 to direct the construction 
and journalling of entries to Al and BI Journals for ISAM 


les. 
5. Modify RMSRU_RECOVER so that the RFA field within the RAB 
is not zeroed when the operation being recovered is a $FIND. 


' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

; 
: v03-005 MCNO002 Maria del C. Nasr 24-Mar-1983 

More Linkages reorganization. 

V03-004 TMK0002 M. 

i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


Todd Katz 17-Mar-1983 
Change RJR$_DELET to RJR$_DELETE and R.JR$_UPDAT to RJRS$ UPDATE. 
Also, fix up the External Register Linkages in RMS$RU_JOORNL3. 


v03-003 TMK0002 Todd M. Kat? 16-Mar-1983 


1. Change all RMSRS$ pxatess to be RJR$_ symbols. 

2. snange Geter RJRSB_ORG to RJRSB_OPER and RJRSB_ENTRY_TYPE 
respectively. 

3. Change the Linkage to RMSRU_JOURNAL3 so that the BDB is an 
external register. ‘ 

4. The interface to RMSWRTJNL has changed. Reflect this change 


within RMS$RU_JOURNAL3. 
v03-002 TMKOO0O1 Todd M. Katz 11-Mar-1983 
If the primary data bucket has not been exclusively locked, 
then RMSRU_RECLAIM returns 0 indicating that the record/RRV 
could not Be reclaimed. 


v03-001 MCNO001 Maria del C. Nasr 24-Feb-1983 
Reorganize Linkages 


terer 
LIBRARY ‘RMSLIB:RMSINTDEF'; 
LIBRARY ‘SYSS$LIBRARY:LIB'; 
REQUIRE ‘*RMSSRC:RMSIDXDEF'; 

! Define default PSECTs for code. 


<z 
os 


Be Be Se Se Be Oe Be Se Be Oe Be Be BH Se Se Se FH Se Se Se Se He FH Se Se Be Se Se Se Se Se SH Se Se ee SH Se Se Se Se Se Stee He Se Se Se ee Se FH Se Se Se Se ee tease 


J 9 : 
RM3JOURNL 16-Sep-1984 01:48:05 AX-11 Bliss-32 V4.0-74 Page 3 RM. 
yOe_000 1e-8ep-19 4 ar BH YAMS -SREIRMSJOURNL B32, . (1) v0: 
s 115 179 1! 3 
3 118 180 1 PSECT 3 
3 (11 181 1 CODE = RMSRMS_JOURNAL(PSECT_ATTR), 3 
3 118 : ¢ ! PLIT = RMSRMS_JOURNAL (PSECT_ATTR); : 
; 120 184 1 ! Linkages. : 
i 153 186 | LINKAGE 
> 3 i 189 1 L_JS : 
: 126 188 1 L“PRESERVE1, ; 
s Yeo 189 1 L_QUERY_AND_LOCK, : 
ci = § 190 1 L-RABREG, 3 
. 4 191 1 L-RABREG_4 5 
: 128 198 1 L“RABREG_4567, ; 
3: 129 193 1 L-RABREG_457, : 
; 130 019% 1 LRABREG_ 567, ; 
3; 131 195 1 LLRABREG_67, ; 
Te 4 0196 1 L_RABREG 7, : 
; oS 0197 1 L_-REC_OVAD; 3 
3 134 0198 1 s 
s 135 0199 1 ; 
:; 136 0200 1 ! External Routines. ; 
3 137 0201 1! 3 
; 138 oe06 1 EXTERNAL Soi ie ; 
3 139 0203 1 RMSDELETE38 : RLSRABREG ADDRESSING_MODE (LONG_RELATIVE) ; 
3; 140 0204 1 RMSDELETE_UDR : RLSRABREG_4567 ADDRESSING. MODE CLONG RELATIVE), : 
3 141 0205 1 RMSKEY_DESC : RLSRABREG 7 ADDRESSING MODE (LONG_ IVE), ; 
; Fe 0206 1 OcR : RLSQUERY_AND_LOCK ADDRESSING_MODE™ (LONG_RELATIVE), 3 
ee 0207 1 RMSMOVE : RLSPRESERVE1” ADDRESSING MODE” (LONG RELATIVE), 3 
: 144 0208 1 RMSNOREAD_LONG : RL$JSB ADDRESSING_MODE TLONG_RELATIVE), 3 
: 145 0209 1 RMSQUERY PROC : RLSQUERY_AND_LOCK ADDRESSING MODE (LONG_RELATIVE), 3 
: 146 0210 1 RMSRECORD_ : RLSRABREG 67” ADDRESSING_MODE” (LONG_RELATIVE), 3 
3 147 0211 «+1 RMSRECORD_KEY : RLSPRESERVE1 ADDRESSING_MODE (LONG_ IVE), : 
3 «148 Oele 1 RMSRE CORD” VBN : RLSPRESERVE1 ADDRESSING MODE (LONG RELATIVE), 3 
3 149 0213 1 A OvAD : RLSREC_OVHD ADDRESSING MODE (LONG RELATIVE) 3 
3 150 0214 1 RMSUPDATE 3B : RLSRABREG_67 ADDRESSING MODE (LONG RELATIVE), : 
; 131 O63 ! RMSWRTJNL : RLSRABREG_4 ADDRESSING_MODE (LONG_RELATIVE); : 
: 13 psig 1 ! Forward Routines. 3 
3 «61546 0218 1! F 
3; 155 0219 1 FORWARD ROUTINE 3 
3 156 0220 1 RMS$SRU_REF ORMAT : RLSRABREG_567 NOVALUE; : 


JNL_8DB : REF BBLOCK, 
RJR_BUCKET : REF BBLOCK; 


kK 9 ; 
RM3JOURNL 16-Sep-1984 01:48:05 AX-11 Bliss-32 V4.0-742 Pa 4 RM. 
voe-000 RMSAI_AND_B1_3 1or8een 138s 93:69398 «— Yahs sredaaSvoarNe (6355/4 oF 123 | voi 
3 138 1 1 SSBTTL ‘RMSAI_AND_BI_3' 3 
3 123 § : GLOBAL ROUTINE RMSAI"AND_B1_3 (JOURNAL) : RLSRABREG_4 = ; 
2 pie : 
$ 188 $ : FUNCTIONAL DESCRIPTION: é 
; 165 8 1! The purpose of this routine is to construct all AI and BI Journal : 
3 166 3 : } entries for ISAM files, and to oversee their writing. | 3 
; 168 1 1 ! CALLING SEQUENCE: 3 
3 19? ¢ 1! 3 
; 170 1 ! RMSAI_AND_B1_3() : 
: 171 4 1! ; 
o OF 5 1! INPUT PARAMETERS: 3 
; 17 > we $ 
3 1 . $ : JOURNAL - type of journalling being done (AI or BI) 3 
i 176 0239 1} IMPLICIT INPUT: | ; 
3: 177 0240 1! 3 
: 178 0241 1! BDB - address of BDB for bucket to be Journalled 3 
: 179 OSes Ss BDBSL_ADDR - address of buffer 3 
: 180 0543 1 BDBSL~Al_BDB - address of Al Journalling BDB | : 
3; «181 0244 1! BDBSL_8!1 BDB - address of BI Journalling 8DB F 
: 18 0245 1! BDBS$W_NUAB - number of bytes of buffer in use | 3 
; 0246 1! BDBS$L_VBN - VBN of bucket $ 
3; «(184 0247 1! ; 
; 6185 0248 1 ! OUTPUT PARAMETER: 3 
: «186 0249 1! NONE ; 
; «187 0250 1! : 
; 188 0251 1 ! IMPLICIT OUTPUT: é 
: 189 0252 1 | NONE | : 
: 190 0253 1! 3 
; 6191 BSee 1 ! ROUTINE VALUE: : 
; 19 0255 1! 3 
3; 19 0256 1! Whatever value is returned from the call to RM$WRTJNL. | F 
> 194 0257 1! 3 
; «195 0258 1 ! SIDE EFFECTS: | 3 
: 196 0259 1! NONE 3 
; 197 0260 1! 3 
: 198 0261 1 !-- 3 
3 «6199 aso¢ 1 3 
: 200 026 BEGIN 3 
: 201 bsee q 
: 4 65 EXTERNAL REGISTER é 
; 0 0266 COMMON_RAB_STR, $ 
: 204 67 R_BDB_STR; | ; 
; 205 68 3 
; 06 69 GLOBAL REGISTER 3 
3 0 , RJR_ADDR = 5 : REF BBLOCK; 3 
: 7 é 
: 7 3 
Ww 02 r 


— tt OOO 
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! Retrieve the address of the appropriate sehr | Pe Hitt and then the 
ournalling ‘ 


ee) 


! appropriate journalling buffer from the 
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RMSAI_AND_B1_3 984 6 RMS .SRCIRMSJOURNL .B32; 1 (2) 


if . JOURNAL EQLU CJFS_AI 
ev se Nt-8P8 .BDBCBDBSL_AI_B0B8) 
.BDBCBDB$L_B1_BDB); 


JNL_8DB 
RJR_ADDR = _. JNL_BDBCBDBSL_ADDRI; 
RJRTBUCKET = .RJRTADDR + RJRSC_BKTLEN; 


' Construct the AI/B1 Journal L ensry for the carrens Journalled operation. 

! If the bucket is a single block in size, or an index bucket, then the 
' entire bucket is Se illel: otherwise Am, the contents of the bucket 
up to the freespace pointer is journalled. 


; 


5 
8 
5 
8 


.BDBEBDBSL_VBN); 


RJR_ADDRCRJRSB_ORG) = RJRSC_IDX; 
RJR_ADDRCRJRSB_ENTRY_TYPE] = RJRSC-BUCKET; 
RJR_ADDRERIR =OPERD = RJR$ BUCKET; | 


J 
RJR_ADDRLRJRSW_BKT_ itis 


COOOCOCOOSOCOCOOCOCOOCOCOCCOCOCOOOCOOOOOOO OOOO OOoOoOOoOO 
Se S$ “DOOOCOGCOSCOSSC COO OO OOOO OWBWOWDODMOMOMWo~~ 
PWN (OO OONAUN EWN 0 OBNAMUE WN SC OODNOUE WO 
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2 2 
334 3 -BDBLBDB$W_NUMBI; | 
236 : If .BDBCBDB$W_NUMB] EQLU 512 | 
238 3 .RJR_BUCKETCBKTSB_LEVEL] GTRU 0 | 
340 3 RJR_ADDRCRJRSW_JBKT_SIZE] = .BDBCBDBSW_NUMB] | 
34¢ 3 : RJR_ADDRCRJRSW_JBKT_SIZE] = .RUR_BUCKETCBKTSW_FREESPACE); | 
344 3 ; JNL_BDBCBDBSW_NUMB) = RJRSC_BKTLEN + .RJR_ADDRCRJRSW_JAKT_SIZE); | 
246 3 2 ! Write out the AI/B] Journal Entry, and return the success or status of 
sts H 2 the journal operation. | 
249 312 3 RETURN RMSWRTJNL (.JOURNAL, .JNL_BDB); | 
250 313 2 | 
251 314 «1 END; | 

-TITLE — RM3JOURNL | 

TIDENT \V04-000\ | 

EXTRN RMSDELETE3B, RMSDELETE_UDR | 

“EXTRN RMSKEY DESC, RMSL 

“EXTRN RMSMOVE, RMSNOREAD LONG 

“EXTRN RMSQUERY_PROC, RMSRECORD_ID 

a RASRECORD KEY, RMSRECORD_VBN 


-EXTRN RMSREC OVAD. RMSUPDATE3B~ 
~EXTRN RASURT TINL 


.PSECT RMSRMS_JOURNAL,NOWRT, GBL, PIC,2 
55 DD 00000 RMSAI_AND BI 3:: 
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OSHE RS 3 0338 | 

03 08 AE 01 00002 CMPL JOURNAL, #3 3 0 79 | 
06 3 0006 BNEQ 1$ ; | 

50 34 A& DO 00008 MOVL 52(BDB), JNL_BDB ; 0281, 


m9 
RM3JOURNL 16-Sep-1984 01:48:05 AX-11 Bliss-32 V4.0-74 
v04-000 RMSAI_AND_B1_3 1228671382 93:59:88 YAMS «SRC RM3JOURNL 832; 
04 11 0000¢ BRB 2$ 
30 AG 06 1$ MOVL § 48(BDB), JNL_BDB 
Ag p 2$ MOVL  24(JNL_BDB),~RJR_ADDR 
1 44 OA 1 MOVAB 68 (R5) RJR_BUCKET 
3 A 0204 8F é 1A MOVW #516. S(RUR“ADDR) 
1 0 MOVB #1, 5(RUR_ADDR) 
¢ 10 AG OD 4 MOVL (ed8), BO(RJR_ADDR) 
460 AS 14 AG OB 9 MOVW (BDB), 64(RUR-ADDR) 
0200 8F 14 as P F CMP (B08), #512 
0c al ? 20 Ist 1e(RJR_BUCKET) 
42. AS 14 ad 80 0088 3$ mov 20 (B08). 66(RJR_ADDR) 
42. AS 04 Al B0 O49 4$ MOVW  4(RJR_BUCKET), 66(RJR_ADDR) 
14 Ad 4 AS 0044 8F Al 00047 5$ ADDW3 #68, B6(RJR_ADDR), 20TJNL_BDB) 
50 0D 0004 PUSHL 8DB 
OC AE DD 00051 PUSHL JOURNAL 
000000006 EF 16 00054 JSB RMSWRTJNL 
5E 8 CO 0005A ADDL2 #8, SP 
20 BA 0005D POPR #*M<R5> 
05 0005F RSB 
; Routine Size: 96 bytes, Routine Base: RMSRMS_JOURNAL + 0000 
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RMSRU_ JOURNALS 12-80 8= 1382 93:08 38 RMS.SRCIRMSJOURNL .B32; ° (3). 
; 3 15 1 XSBTTL "RM$RU_JOURNAL3' $ 
; 4 i$ : GLOBAL ROUTINE RMSRU_JOURNAL3 (OPERATION, VBN, ID, SIZE) : RLSRABREG_67 = : 
; 5 18 | i+ ; 
; 19 1! : 
; rh 9 : : FUNCTIONAL DESCRIPTION: : 
; 260 § 1! The tH et of this routine is to construct all RU Journal entries | : 
; o ? : } for ISAM files, and to oversee their writing. ‘ 
3 es 5 : : CALLING SEQUENCE: : 
; 265 $ 1} RMSRU_ JOURNAL 3() : 
; 266 . 13 ; 
H 67 0329 1 ! INPUT PARAMETERS: : 
; 268 0330 1! ; 
i; 269 be, 1! OPERATION - operation being RU Journalled : 
; 270 03 § , 3 VBN - VBN of RU Journalled record's RFA ; 
; er 0333 1! 1D - ID of RU Journalled record's RFA | : 
; , the : SIZE - size of record image to be journalled 
; 74 0336 1 ! IMPLICIT INPUT: 
3; 275 0337 1! 
; 276 0338 1! AB - address of IRAB 
; ere 0339 1! IRB$L_CURBDB - address of BDB for primary data bucket 
; 4 tet ! } IRBS$L_JNLBDB - address of BDB for journal entry buffer 
; 280 Beg 1} REC_ADDR - address of record image to be journalled 
; 281 0343 1! 
; 282 0344 1 ! OUTPUT PARAMETER: 
; 283 0345 1! NONE 
> 284 0346 1! | 
; 285 0347 1! IMPLICIT OUTPUT: | 
; 286 0348 1! NONE 
; 287 0349 1! 
; 288 0350 1 ! ROUTINE VALUE: 
; 289 0351 1! 
; 290 Be26 1! whatever value is returned from the call to RMSWRTJNL. 
; 291 0353 1! 
: $36 0354 1 ! SIDE EFFECTS: 
: $3 0355 1! NONE 
> 294 0356 1! 
: 295 0357 1 !-=- 
; 2% B328 1 
3: 297 59 BEGIN 
: 298 0360 
; 299 0361 EXTERNAL REGISTER 
5 00 8306 COMMON_RAB_STR, 
; 301 B36 R_REC_ADDR; 
; 3 364 
; B3e2 GLOBAL REGISTER 
; 304 308 RJR_ADDR = 5 : REF BBLOCK; 
: 06 $36 LOCAL 
; $9 $3 JNL_BDB : REF BBLOCK; 
; 308 03 
; 309 03 


! Retrieve the address of the RU Journal Entry buffer. 


= 


WWAWAAWAAW WWW NAA NNN ANNINNW WNW 
BEE EE BANNAN IIAP NNNDY 2 2 2 SS SS oS 
MVEWN OO OODNOUSWN OO OONOUSWN OO DOONOULSWNO 


Bee Ge Se Ge Se Ss Oe Oe Oe Os Oe Be BH He Os Be OH Se Se Se Se Se Se Oe Os Ss Oe Se Oe SH ee HSH Se oe ees 
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RMSRU_JOURNAL3 14-Sep-1984 
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' 
JNL_BDB = .IRABCIRBS$L_JNLBDB); 
RJR-ADDR = .JNL_SDBCBDBSL_ADDRI; 
Construct the RU Journal Entry for the current RU Journalled operation. 
RJR_ADDRCRJRSB_ENTRY_TYPE] = RJRSC_RECORD; 
R RG) RJRSC 1 


RJR-ADDRERJRSB_ . ; 
RJR_ADDRERJR$B_OPER = ,OPERATION; 
RJR-ADDRERJRSL_RFAO = .VBN; 
RJR-ADDRCRJRSW_RFA = .10; 
RJR-ADDRERJRSW_RSIZE) = .SI2E; 
BEGIN 
GLOBAL REGISTER 
R7IDX_DFN; 
; JNL_BDBCBDB$W_NUMB) = RMSMOVE (SIZE. ,REC_ADDR, RJR_ADDRCRJRST_RIMAGEJ) 
$ END; ek 
2 ! Write out the RU Journal Entry, and return the success or status of the 
2 journal operation. 
BEGIN 
; GLOBAL REGISTER 
z a 
3 BDB = .JRABCIRB$L_CURBDB); 
3 RETURN RMSWRTJNL (CJF$_RU, .JNL_BDB); 
2 END; 
2 
1 END; 
00B0 8F BB 00000 RMS$RU_JOURNALS:: 
PUSHR #*M<R4,R5,R7> 
51 30 a9 DO 00004 MOVL  48(IRAB), JNL_BDB 
55 18 Al 00 00008 MOVL 24(JNL_BDB), RJR_ADDR 
03 AS 0202 8F B80 0000C MOVW #514, 3(RJR_ADDRY 
05 aS 10 AE 90 O00ts MOVB OPERATION, 5(RJR_ADDR) 
40 AS 14 AE 00 0001 MOVL _—s*VBN, 64 (RIR ADDRI 
44 AS 18 AE BO 9001¢ MOVW ID, 68(RJR_ADDR) 
46 AS . 4 : 90 1 MOVW site. 70(RIR_ADDR) 
48 AS 9F 00026 PUSHAB (RJR_ADDR) 
56 DD 00029 PUSHL 
34 AE 0D 99 B PUSHL §S 
00000000G EF 16 Q002E JSB RMSMOVE 
CO 00034 ADDL 
14 «Al A3 00037 SUBW3 RJR_ADDR, RO, 20(JNL_BDB) 


ew flo folololq) 
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0392. 


RM$RU_ JOURNAL 3 if-te n36b2138e PY: af: 8 AMS. SREIRNEJOURNU 6 835: res 3) 


54 Ag 0 3 MOVL 32(IRAB), BDB ; on 03 
6E oy. D 4 MOVL JNL_BDB, (SP) : 0405 
1 DD 0004 PUSHL #1 : | 

, 200000006 F 18 4 JSB RMSWRTJNL 3 

8 C 48 ADDL2 #8, SP : 
0080 F BA 0004 POPR #“M<R4,RS,R7> : 0408 

05 0005 RSB : 
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v04=000 RMSRU_RECLAIM 
XSBTTL "RMSRU_RECLAIM' 
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INN AANIAINA NAAN 
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3 1 

3 1 

3 1 

3 1 

3 1! 

; 1! 

; 1! 

3 1! 

3 1! 

: 1! 

: 1: 

: : 7 

; 1! 

; 1! 

; i! 

3 a. % 

3; 5 1! involves placin 
: % 3. format it is pu 
s 1! 

; 1! 

; 36 . 

i. . 3 

, or 1! 

, Br 1! 

oe 1! 

s ST 1! 

s 37 . 3 

or 0 1! 

3; 0 1! 

s ST 0 1! 

s 378 04 1% 

; 379 04 1 ! CALLING SEQUENCE: 

; 380 0441 1! 

; 381 044 7 2 RMSRU_RECLAIM() 
3; wee 0443 1! 

; 383 0444 1 ! INPUT PARAMETERS: 

; 384 0445 1! NONE 

s 385 0446 1! 

; 386 0447 1 =! IMPLICIT INPUT: 

s 3a7 0448 1! 

; 388 0449 1! IFAB 

; 389 0450 1! IFBSV_RUP 
; 390 0451 1! IFBSV~WRTACC 
: 91 be eg i. 

; 392 04535 1! AB 

3; 395 0454 1! IRB$L_CURBDB 
: 394 0455 1! 

: 95 0456 1! REC_ADDR 

3 $99 0457 1! 

; 97 0458 1 ! OUTPUT PARAMETER: 

; 398 0459 1! NONE 

3; 399 0460 1! 

; 400 0461 1 ! IMPLICIT OUTPUT: 

; 401 Boog 1! NONE 

; 402 Be6 1! 

; 403 464 1 ! ROUTINE VALUE: 

; 604 0465 1! 


GLOBAL ROUTINE RMSRU_RECLAIM : 


FUNCTIONAL DESCRIPTION: 
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if set, 
if set, 


address 
address 


address 


RLS$RABREG_67 = 


The purpose of this routine is to try and reclaim space from the current 
record which has been previously modif 


cked. 


If the current record was updated within a Recovery Unit that has since 
terminated, then at this time the record maybe re-formatted. Thi 


If the current record was deleted within a Recovery Unit that has since 
terminated, then at this time the record is deleted for good according 
to the normal rules of primary data record or RRV deletion. 


Note that if the record had both been deleted and updated within a 
Recovery Unit, then the deletion takes precedence over the updating. 


This routine returns success whenever it has modified the current 
primary data record regardless of whether or not any space was actually 
reclaimed through doing do. 


of IFAB ote «i 
Recovery Unit is in progress 
file is opened for write access 


of IRAB 
of BDB for primary data bucket 


of current primary data record 


ied within a egovery Unit. Such 
reclamation can only take place if the Recovery Unit in which the 

current record was modified has successfully terminated 
has been opened for write access 
the record has been exclusively 


the file 
( and the primary data bucket containing 
° 


Ss 
the record into the normal format from the special 
in to reserve space during a Recovery Unit, and 
reclamating any unused space. 


1 
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ae 
SF 


408 
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Determine the lock status of the record which has been modified 
with a Recovery Unit but do not wait for the lock to be released if 
another stream has the record locked. 


' 
i 
i 
i 
AP = 3; 

IRABCIRBSV_NO Q WAIT) = 1; 

STATUS = RASQDERY_PROC (RMSRECORD_VBN(), RMSRECORD_ID()); 

! If and only if the Recovery Unit in which the current primary data record 
! was modified has completed and the file was opened for write access can 

! this record be subject to special precees ing. If the query lock indicates 
! that the current record is not locked by any stream, or if the current 

: stream already has the record locked but it is not in a Recovery Unit, 

! then RMS may conclude that the Recovery Unit in which the current record 
was modified has concluded, and subject the record to special processing. 
IF 


- IFABCIFBSV_WRTACCI 
(.STATUS<0,16> EQLU RMSSUC() 
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1b-se -1984 01:48:05 AX-11 Bliss-32 V4.0-742 Page 11 
RMSRU_RECLAIM 1a-8ep-19 4 Ln Ber RMS. SREIRA JOURNL .B32;1 . (4) 
re ¢ 1! 0 = reclamation of the record was not possible. 
467 1! 1 - reclamation of the record was possible. 
468 1! RLK - reclamation of the record was not possible because it could 
$82 1! not be locked 
470 1! 
oo) ! SIDE EFFECTS: 
8238 1! If the current record had been updated within a Recovery Unit, 
0474 1! then it might have been re-formatted, 
0475 1! If the current record had been deleted within a Recovery Unit, 
pete 1: then it might have been deleted for good and its space partially 
ges 1} or totally reclaimed. 
476 1! If any reclamation took place, the BDB for the primary data bucket is 
0479 1! marked dirty. 
0480 1! 
0481 1 !-- 
Bees 1 
048 BEGIN 
0484 
0485 BUILTIN 
0486 2 AP; 
0487 2 
0488 2 EXTERNAL REGISTER 
0489 OMMON_RAB_STR, 
0490 R_IDX_BFN_STR, 
9491 R-REC_ADDR_STR; 
049 GLOBAL REGISTER 
0494 § R_BDB; 
0495 
0496 § ABEL 
97 RECLAIM; 
0498 2 
99 2 LOCAL 
2 STATUS; 
2 
2 
3 
2 
: 
4 
3 
4 
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v04-000 RMSRU_RECLAIM 1o=8 0 384 95:08:30 RMS. SREIRMSJOURNL (83001 ° (4) 
; 46 523 4 AND 
; 46 526 -STATUS<0,16> EQLU RMSSUC(OK_ALK))) 
; 464 é 5 THEN 
; 465 $ RECLAIM: 
; 46 5 BEGIN 
; 46 528 
; 468 529 GLOBAL REGISTER 
; <3 : ? COMMON_IO_STR; 
3: 471 05 ¢ ! If the primary data bucket containing the record has not been 
3 4! R287 exclusively locked, then no space reclamation can take place. 
3 ry 03 5 BDB = .IRABCIRB$L_CURBDBI; 
; 476 05 $ IF NOT .BBLOCKC.BDBCBDBS$L_BLB_PTRI, BLBSV_LOCK) 
: 477 05 : THEN 
; «478 0539 4 
: 479 0540 4 STATUS = 0; 
; 480 0541 4 LEAVE RECLAIM; 
; 481 bee§ END; 
; 48 054 
; 48 0544 ! Retrieve the aidress of the primary data bucket. 
3; 484 0545 ! 
3 rH bee$ BKT_ADDR = .BDBCBDBS$L_ADDR]; 
; 487 0548 ! A 1 will be returned as the value of this routine indicating that 
; 4488 0549 ! reclamation was prse sete. This will be regardless of whether any 
; 489 0550 ! space will actually be reclaimed. Also, mark the primary data bucket's 
; 490 0551 ' BDB as dirty. 
; 491 9326 : 
; 492 055 STATUS = 1; 
; 493 0554 BDBCBDB$V_DRT) = 1; 
; 494 0555 : : 
; 495 0556 : If the current record had been deleted within a Recovery Unit then 
; 4% 0557 : $e payee truely deleted at this time, and the space it occupies 
; 497 0558 ! reclaimed according to the normal rules for the deletion of primary 
; 498 0559 ' data or RRV records. 
; 499 0560 : 
; 500 0561 IF .REC_ADDRCIRC$V_RU_DELETE) 
; 501 p28 THEN 
; 208 0565 4 BEGIN 
; #0 0564 4 , nae 
3; 504 0565 4 ! Clear the RU_DELETE and the RU_UPDATE bit within the current 
3 23? 8266 4 ' record's control byte. 
; 506 567 & : 
; 507 0568 4 BE ADORE IR CoY RU DELETE = 0; 
; 208 8292 ? REC_ADDRLIRC$V_RU_UPDATE) = 0; 
; 219 $37) : Delete the current record (RRV or primary data record). 
: 518 oa78 & IF NOT .REC_ADDRCIRC$V_RRV) 
3; «651 0574 4 
; 514 575 4 RMSDELETE_UDR() 
3 2 278 4 
; 516 57 ; BEGIN 
3 Sif 0578 
; 518 0579 5 LOCAL 
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yoe-000 RMSRU_RECLAIM 12-8 8-1 3b 93:08 58 RMS SREIRA JOURNL .B32;1 ’ (4) 
; 238 ; 9 2 LENGTH; 
s Sel ¢ LENGTH = (.BKT_ADDR + .BKT_ADDRCBKTS$W_FREESPACE]) 
; > ¢ é ? - (.REC_ADDR + IRCSC_FIXOVHSZ3); 
H ; ¢ 0385 IF .LENGTH GTR 0 
; 2 § 0387 5 RMSMOVE (.LENGTH, .REC_ADDR + IRCSC_FIXOVHSZ3, .REC_ADDR); 
; 528 0589 3 BKT_ADDRIBKTS$W_FREESPACE] = .BKT_ADDR(BKT$wW Ao 1 ate 
; 529 0590 5 = IRCSC_FIXOVHSZ3; 
; 530 B23, 4 END; 
g So) 236 4 END 
3; > 4 0595 4 
5 0594 4 : If the current record had been updated within a Recovery Unit 
; 534 0595 4 ! then it maybe reformated at this time. 
3 335 P2208 4 : 
; 336 0597 3 ELSE 
; $37 0598 RMSRU_REFORMAT(); 
; 538 0599 D 
; 539 0600 
; 540 0601 ! If RMS is unable to lock the current primary data record, or if the 
; 541 060 ; ! stream itself has it locked and the current process is within a Recovery 
3 otg 060 ! Unit then RMS concludes that the Recovery Unit in which the record was 
; 54 0604 : modified has not successfully concluded. In these cases, and also when 
: 5446 0605 ! the file was not opned for write access the routine will return a status 
3s 365 0606 ! indicating that no reclamation was possible. RLK will be returned if RMS 
; 546 0607 ' could not lock the record; otherwise, a status of 0 is returned. 
; 547 0608 3 : 
; 548 0609 ELSE 
; 549 0610 IF .STATUS<0,16> NEQU RMSERR(RLK) 
3 350 0611 THEN 
g. 39) 061 STATUS = 0; 
3 226 0615 2 ; 
5. 32 0614 2 ! Return whether or not any reclamation of the current primary data record 
: 554 0615 2 ! was possible. 
3 395 0616 e ! 
: $56 0617 2 RETURN .STATUS; 
s Sov 0618 1 END; 
3C BB 00000 RMSRU_RECLAIM:: 
PUSHR #*°M<R2,R35,R4,R5> ; 0410, 
5¢ 03 00 00002 MOVL #3, A ; 0506. 
07 Ad 01 88 00005 BISB2 #1, 7(IRAB) ; 0507. 
000000006 fF 16 00009 JSB RMSRECORD_ID ; 0508 | 
0 bdO0 Q000F MOVL : | 
000000006 EF 16 0018 JSB RMSRECORD_VBN ; 
0 bdO 0001 MOVL R 3 
000000006 EF 16 0001B JSB RMSQUERY PROC ; | 
0 4 0021 MOVL 0, STATO F 
6 06 AA €E9 00024 BLBC «=«-_-«s@ (FAB), 5$ : 0518 | 
52 B1 00028 CMPW = STATUS, #1 ; 0520 | 
0D 13 00028 BEQL 1$ 3 
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yOe_000 RMSRU_RECLAIM 14- =tepe 1382 93:98 93 RMS. SREIRMEJOORNL 163244 9 a) 
5¢ OA A £0 000 BBS #2 Ve2cteA ), 5$ : 0522, 
oe §F 3 Bi H ; CMP pate HG : ya 
54 20 Ad 06 O3A 1$ MOVL 2(IRAB), BDB : 0535. 
0 10 Ad DO 000 : MOVL 16808), RO + 0537. 
50 OA AO €9 04 BLBC  10(RO), 6$ F | 
33 18 AG OD 0 46 MOVL  24(BDBS, BKT_ADDR : 0546 | 
2 01 p O4A MOVL #1, STATUS : 0553. 
OA AG é 90040 BISB2 We. 10(BDB) + 0554 | 
35 46 0 F| 0051 BBC #5. (REC_ADDR), 4$ + 0561. 
6b 60 8F 8a 00055 BICB2 #96, (REC_ADDRS + 0569. 
08 66 03 FO 0099 BBS #3, (REC_ADDR), 2$ : 0975 | 
000000006 EF 16 9005p 188 RHSDELETE _UDR : 0575 | 
50 06 AS 3¢ 00065 2$ MOVZWL 4(BKT_ADDR), RO + 0582) 
50 55 C 90069 ADDL2 BKT_ADDR, RO : | 
50 56 ¢€2 0006C SUBL RECZAD “AD DRe ro + 0583 | 
50 09 ¢ 9006 SUBL ; 
10 15 00072 BLEQ : 0585) 
56 DD 00074 PUSHL REC ADDR + 0587) 
09 A6 9F 00076 PUSHAB 9(R6) ; | 
50 DD 00079 PUSHL eRerH : 
000000006 EF 16 0007B JSB RMSMOVE : 
SE 0c ¢O 00081 ADDL2 #12, SP ; 
04 AS 09 A2 00084 38: SUBW2 #9, 4(BKT_ADDR) : 059 
OE 11 00088 BRB : 056 
0000V 30 OOOBA 4$: BSBW RMSRU_REFORMAT ; 059 
09 11 0008D BRB > 051 
82AA BF 52 B1 OOOBF 5$: CMPW = STATUS, #33450 : 061 
02 13 00094 BEQL «6 7$ ; 
52 D4 00096 6$ CLRL ‘STATUS : 061 
50 52 DO 00098 7$ MOVL STATUS, RO > 061 
3¢ BA 00098 POPR #*M<R2.R3,R4,R5> : 061 
05 0009D RSB : 


; Routine Size: 158 bytes, Routine Base: RMSRMS_JOURNAL + 0083 
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v04- RMSRU_RECOVER 12286871382 93:09 138 LAMS .SRC RMSJOURNL .B32; 1 ’ (5) 

H 228 619 1 XZSBTTL ‘RMSRU_RECOVER' ; 
; rs ? , ! GLOBAL ROUTINE RMSRU_RECOVER (OPERATION) : RLSRABREG = . 
; $6 6 § 1 +4 $ 
> 36 6 1: $ 
; eee be : i FUNCTIONAL DESCRIPTION: : 
; 566 $e 8 1} The purpose of this routine is to oversee the RU ROLLBACK Recover ; 
3 3er 6 1! operations. Whenever one of these operations are initiated on an ISAM : 
; 568 0628 1! Lae it is yanorcentee by the appropriate routine in the module ; 
: 569 0629 1! RM3FACE, and control is transfered here. This routine then performs a : 
3 270 be » F3 number of checks, sets up the internal environment common to all RU : 
: Or 631 1! ROLLBACK operations, and then dispatches to the code which actually : 
; 2r¢ be ¢ } directs each of the individual RU ROLLBACK Recovery operations. ; 
; 574 0634 1 ! CALLING SEQUENCE: : 
s S79 0635 1! ; 
; 576 0636 1! RMSRU_RECOVER() ; 
3 ore 0637 1! : 
; 578 0638 1 ! INPUT PARAMETERS: ; 
3; 3 0639 1! ; 
3 380 ae78 ! OPERATION - the operation to be RU ROLLBACK Recovered : 
; 286 0642 1 ! IMPLICIT INPUT: : 
3; 06435 1! : 
> 584 0644 1! IDX_DFN - address of the primary key index descriptor 3 
; 585 0645 1! IDX$B_DATBKTSZ - size of a primary data bucket in blocks $ 
; 586 0646 1! IDX$B_DATBKTYP - primary data bucket type 3 
; 587 0647 1! IDX$V_DUPKEYS - if set, duplicate primary keys are allowed 3 
; 588 0648 1! IDXS$V_KEY_COMPR - if set, primary key compression is enabled 3 
; 589 0649 1! IDX$B_KEYSZ - size of or enere key : ; 
; 590 0650 1! IDX$W_MINRECSZ - minimum size of record to contain primary key : 
; 4 963) ! } IDX$V_REC_COMPR - if set, record compression is enabled : 
; 395 o688 1% IF AB - address of IFAB : 
; 594 0654 1! IF BSW_KBUF SZ - size of an internal keybuffer : 
; 595 0655 1! IFBSL_LRL - longest record length : 
: 596 0656 1! IFBSW_MRS - maximum record size : 
; 597 0657 1! IFB$B_RFMORG - record format : 
; 598 0658 1! : 
; 599 0659 1! AB - address of IRAB i : 
: 600 0660 1! IRBS$L_KE YBUF - address of the contigious keybuffers : 
; st pees ! } IRB$B_MODE = access mode of the user operaion : 
; £08 665 1! RAB - address of the RAB 3 
; 604 0664 1! RABS$L_RBF - address of the user record buffer : 
; 605 0665 1! RABSL_RF AO - RFA VBN of the record to be RU Recovered ‘ 
; 606 0666 1! RABSW_RFA4 - RFA ID of the record to be RU Recovered 3 
; 607 0667 1! RABSW_RSZ - size of the user record F 
; 608 0668 1! 3 
; 609 0669 1 ! OUTPUT PARAMETER: 3 
; 610 0670 1! NONE : 
; 611 0671 1! ; 
: ol¢ bere 1 ! IMPLICIT OUTPUT: : 
: 61 675 1! ; 
3 614 674 1! AB - gttress of the IRAB : 
; 615 0675 1! IRB$B_CUR_KREF - 3 
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y0e-000 RMSRU_RECOVER 1228687138 93:09:98 CAMS .SRC RMSJOURNL .B32; . (5) vO 
; 6) 16 : IRBSL_ - address of the user record buffer : 
; 61 677 1! IRB$B_RP_KREF - : 
; 238 678 1! IRBSW_R - size of the user record ; 
; 61 679 1! IRB$W_POS_ID - RFA ID of the record to be RU Recovered : 
; 620 680 1! IRB$L_POS_VBN - RFA VBN of the record to be RU Recovered ; 
; 621 681 1! IRB$W_UDR_ID - RFA ID of the record to be RU Recovered ; 
3 ° ¢ be ¢ : IRB$L_UDR_VBN - RFA VBN of the record to be RU Recovered : 
; 624 oR +! RAB - address of user RAB F 
; 625 0685 1! RABSL_RFAO - 0 (Unless the operation is a $FIND Recovery) : 
; ? $ bee : RABSW_RFAG - 0 (Unless the operation is a $FIND Recovery) : 
; 628 0688 1 ! ROUTINE VALUE: FH 
; O63 0689 1! : 
; 630 0690 1! CUR = there is no current record to be RU ROLLBACK Recovered. | : 
; 631 0691 1! RBF = unable to read user's record buffer. | ; 
; O36 0692 1! RSZ = user record size is bad 3 
; th beaz : } SUC = successful RU ROLLBACK Recovery operatio. : 
; 635 0695 1! Various Routine values from the following routines: 3 
; 636 0696 1! F 
; 637 0697 1! RMSDELETE38 3 
: 638 0698 1! RMSLOCK 3 
; 639 0699 1! RMSUPDATE3B : 
; 640 0700 1! : 
; «641 0701 1 ! SIDE EFFECTS: $ 
; ek: 4 1! : : 
; 64 0705 1! On success, the RU operation will have been successfully recovered. : 
; 644 0706 1! On failures, the RU operation might have been successfully recovered : 
3 7? 3443 : } depending on where the failure occurred and what the failure was. : 
; 647 0707 1! AP is trashed. 3 
; 648 0708 1! The primary key of the record will be pregey into keybuffers 1 and 2. | ; 
; 649 0709 1! Several parts of the NRP context will be initialized with information : 
; 650 0710 1! about the record that is to be recovered. ; 
3 @) 0711 1! The RAB's RFA field will be zeroed (Unless the operation is a : 
3 636 orig 1! $FIND Recovery). 3 
; 65 0715 1! 3 
3; 654 0714 1! 3 
; 655 0715 1 !-- 3 
; 656 0716 1 3 
; 657 0717 BEGIN ; 
; 658 0718 3 
3; 659 1884 BUILTIN 3 
3; 660 720 AP; ; 
; 661 0721 ; 
3 666 876 EXTERNAL REGISTER : 
3; 66 07 COMMON_RAB_STR; : 
; 664 0724 3 
; 665 0725 ABEL 3 
; 666 fi $ IN. TIALIZE; ° 
: 668 0728 ! Perform the initilizations and checks common to all RU ROLLBACK Recovery 3 
: $69 729 ' operations. F 
; 670 750 } : 
3; 671 731 INITIALIZE: : 
3; 672 732 BEGIN 3 
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; 673 733 ; 
; 674 734 GLOBAL REGISTER : 
; of? , 5 R_IDX_DFN_STR; : 
; oft f ? } Make sure there is a record to be recovered. : 
; 679 739 IF .RABCRABSL_RFAO) EQLU 0 ; 
; 680 740 R 3 
; 681 741 -RABCRABSW_RFAG) EQLU 0 | ‘ 
; 68 rg N Ps 
; ret are? RETURN RMSERR(CUR); ‘ 
; 685 re ! If this is a SFIND RU ROLLBACK Recovery operation than all the required ; 
3 O86 8508 initializations and checks have been performed. | : 
; 688 0748 IF .OPERATION EQLU RJRS_FIND : 
; 689 0749 THEN : 
; 24 Bree LEAVE INITIALIZE; : 
3 o3¢ 3736 Save the size of the record and the address of the record buffer. : 
° . | a 
; 694 0754 beg pes sear se = yortbyrs et gf F 
: 695 0795 IRABCIRBSW_RSZ) = .RABLRABSW_RSZJ; | : 
4 | ° 
3 697 0757 ! Make sure the size of the record isn't greater than the maximum record : 
; 698 0758 ' size allowed. 3 
; 699 0759 3 } | : 
; 700 0760 3 IF .IFABCIFBSB_RFMORG] EQL FABSC_FIX ; 
: 701 0761 3 THEN : 
; the 4 BEGIN 3 
: 70 0763 4 | ; 
: 704 0764 4 IF .IRABCIRBSW_RSZ) NEQU .IFABCIFBSW_LRLJ : 
3; 705 0765 4 THEN : 
: 706 0766 4 RETURN RMSERR(RSZ); , 
; for 0767 & | : 
; 708 0768 3 ELSE : 
; 709 0769 ; IF .IFABCIFBSW_MRS) NEQ 0 3 
; 710 0770 | ; 
. wy 0771 3 - IRABCIRB$W_RSZ] GTRU .IFABCIFBSW_MRSJ | : 
3 ar; 14k: 3 : 
or 077 ; RETURN RMSERR(RSZ); | : 
3; rie 0774 . 3 
s TiS 0775 3 ! Make sure the record will fit ina prvpery data bucket. This is done 3 
: at g778 ! by taking the size of the bucket less bucket overhead, subtracting the : 
3; 7 77 : maximum overhead which maybe associated with a record in this file ’ : 
; 718 0778 ! including possible key and record compression overhead, and comparing this é 
3; 719 0779 ! value with the size of the record. : 
: 720 0780 3 } A 
3; fei 354 4 BEGIN : 
we. ; eS 4 3 
ee 783 4 LOCAL 3 
3 ’ : A 2 BUCKET_SIZE : WORD; : 
; 726 Hi 2 : Retrieve the index descriptor for the primary key of reference. : 
; oH 788 4 RETURN_ON_ERROR (RMSKEY_DESC(0)); ; 
; 729 0789 4 : 


RMSJOURNL 

v0e-000 

; 730 790 
s 7351 791 
3; 7 ¢ 79 
aR 79 
3; 734 794 
: 735 795 
3; 7 § 79 
: Te 8 
; 6998 
; 740 0800 
> 741 801 
3 76 80 
; 74 080 
: 746 0804 
3s 745 0805 
; 746 0806 
: 747 0807 
3; 748 0808 
3; 749 0809 
; 750 0810 
s 73% 0811 
3 Pee Bais 
Be 081 
3; 754 0814 
: 755 0815 
: 756 O86 
s 757 081 
: 758 0818 
; 759 0819 
: 760 0820 
; 761 0821 
: 762 bbe¢ 
3 «763 082 
3: 7646 0824 
: 765 0825 
; 766 0826 
: 767 0827 
: 768 0828 
3; 769 st 
: 770 0830 
: 771 0831 
3 ae obs 
; 774 OB ez 
; 775 0835 
: 776 tte 
.. Dee 083 
: 778 0838 
; 779 0839 
; 780 0840 
; 781 841 
; 78 743 
s 7 4 
; 6784 44 
3; 785 45 
3; 786 0846 
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1$-$ep-1964 01:48:05 vant] BL isg-32_v4.0-74 


BUCKET_SIZE = (.1DX_DFNCIDX$B_DATBKTSZ] * 512) - Bx TSC -OVERHDS? 
= BKTSC-DATBKT 
= IRCSC“FIXOV NSY3: 
IF < 1DX_DFNCIDXSV,DUPKEYS] 
BUCKET_SIZE = .BUCKET_SIZE - BKTSC_DUPBKTOVH; 
IF. IFABCIFBSB_RFMORG] NEQU FABSC_FIX 
(. 1FABCIFBSB_RFMORG] EQLU FABSC_FIX 
a . IDX_DFNCIDX$B_DATBKTYP] NEQU IDX$C_NCMPNCMP) 
BUCKET_SIZE = .BUCKET_SIZE - IRCSC_DATSZFLD; 
IF <1DX_DFNCIDXSV_KEY,COMPR] 
BUCKET_SIZE = .BUCKET_SIZE - IRCSC_KEYCMPOVH; 
IF .IDX_DFNCIDX$V_REC_COMPR 
BUCKET_SIZE = .BUCKET_SIZE - IRCSC_DATCMPOVH; 
IF .IRABCIRB$W_RSZJ GTRU .BUCKET_SIZE 
p RETURN RMSERR(RSZ) 


Verify that the record is large enough to contain the whole primary key. 
iF ;JRABLIRBSW_RSZ) LSSU .IDX_DFNCIDXS$W_MINRECSZ) 
RETURN RMSERR(RSZ); 
Probe the record buffer. 
if RMSNOREAD_LONG (.IRABCIRBSW_RSZ], .IRABCIRBSL_RBFJ, .IRABCIRB$B_MODE) 
RETURN RMSERR(RBF); 
Extract the primary key of the record into keybuffers 1 and 2. 
BEGIN 
GLOBAL REGISTER 
_BDB, 
R_REC_ADDR; 
My 
ADDR = .IRABLIRBSL_RBF); 
RMSRECORD. _KEY (KEYBUF_ADDR(1)); 
ene (. IDX_DFNCIDX$B_KEYSZ], KEYBUF_ADDR(1), KEYBUF_ADDR(2)); 


! Initialize the fields in the NRP such that the record being recovered 
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voe=00¢ RMSRU_RECOVER 12-808- 1382 rt Ber} LRMS.SRC RMSJOURNL .B832;1 . (5). 
; r 4 | ; becomes the current primary data record. ‘ 
: 789 rk jRage 1nese_ CUR KREF) = 0: . 
; re 29 IRABLIRBSB_RP_RREF) = 0; : 
; 79 0 iH IRABCIRBSL_UDR_VBN] = .RABCRABSL_RFAO); : 
: 79 0 3 IRABLIRBSWUDR-1D)] = .RABCRABSW-RFAGI: ; 
3; 794 0854 IRABLIRBSL_POS_VBN] = .IRABCLIRBSC_UDR_VBNI; : 
3; 795 0855 IRABLIRB$SW_POS_ID] = .IRABLIRBSW_UDR_IDJ; ; 
; 796 peed END; ; 
; 797 085 ; 
; 798 Be28 ! Dispatch to the RU ROLLBACK Recovery Code Which is Specific for each : 
; 799 085 ' type of operation to be recovered. : 
; 800 0860 ! : 
; 801 Bae) BEGIN 3 
; 80 B66 3 
; 80 086 LOCAL | 3 
; 804 0864 STATUS; $ 
; 805 0865 3 
; 806 0866 SELECTONEU .OPERATION OF é 
; 807 0867 SET 3 
; 808 0868 3 
: 809 0869 ! The RU ROLLBACK operation requested is a SFIND. This just consists of ; 
; si9 Bac0 locking the record with the indicated RFA. : 
3 aig et CRIRS_F IND): STATUS = RMSLOCK (.RABCRABSL_RFAO], .RABCRABSW_RFA4)); : 
; 814 0874 ! The RU ROLLBACK operation requested is a SDELETE. This Recovery 3 
> 815 0875 : operation consists of un-deleting each part of the current record that : 
: sig bars ; } had been deleted within the Recovery Unit being rolled back. : 

}3 818 0878 4 CRJRS$_DELETEJ: BEGIN : 
; 819 0879 4 IRABCIRBS$V_RU ath = 1; : 
; 820 0880 4 STATUS = RASDELETE3B(); 3 
; 821 0881 4 IRABCIRB$V_RU_UNDEL) = 0; 3 
; ase et 3 END; : 
; 824 0884 ! The RU ROLLBACK operation ropeneeee is a $PUT. This Recovery operation 3 
; 825 0885 ! consists of deleting each and every part of the current record that 3 
; 826 0886 ! was inserted as a new record within the Recovery Unit being rolled 3 
; 827 0887 ' back. 3 
; 828 0888 ‘ 3 
3 880 334 CRIR$_PUT): STATUS = RMSDELETE3B(); : 
: 1 6 91 ' The RU ROLLBACK operation requested is a $UPDATE. This Bocauecy | F 
$ Hi 089 : eperet ion consists of replacing a newer version of a record with an | F 
3 83 089 ' older version of the same record which had been replaced within the : 
3 3 Ba3e ; Recovery Unit being rolled back. 3 
: 36 0896 4 CRJR$_UPDATE]: BEGIN : 
; 837 97 4 3 
; 838 98 4 GLOBAL REGISTER 3 
; 839 899 4 R_IDX_DFN : 
: 840 900 4 R-REC-ADDR; ; 
: B41 901 4 3 
: ri} 902 4 IRABCIRBSV_UPDATE) = 1; 3 
; «84 903 4 STATUS = RASUPDATE3B(); 3 


N 10 
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3 4 904 4 IRABCIRB$V_UPDATE) = 1; 
; 845 905 END; 
3 st9 i TES; | 
; 848 b's ' Jero in the user's RAB the RFA of the record which has been RU ROLLBACK 
3 4 $44 Recovered unless the operation being recovered is a $FIND. | 
3 S23 911 iF .OPERATION NEQU RJR$_F IND | 
3 2¢ aig THEN 

; 85 9135 4 BEGIN 
; 854 914 & RABCRABSW -REAOJ = 0; 
3 S22 915 4 RABLRABSL_RFAO) = 0; 

: 23 aig END; 

; «85 091 

; $28 3444 Return the status of the RU ROLLBACK Recovery operation. 

; 860 0920 RETURN .STATUS; 

; 861 0921 2 END; 
; 862 0922 1 END; 
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OOFC 8F BB 00000 RMSRU_RECOVER:: 
PUSHR #*M<R2,R3,R4,R5,R6,R7> g O68 
10 A&B D5 00004 TSTL 16(RABS : 0739) 
05 13 00007 BEQL '1$ : | 
14 AB BS 00009 TSTW 0 (RAB) : 0741 | 
08 12 0000C BNEQ : 
50 8484 BF 3¢ D005 1$: MOVZWL #33972, RO > 0743 
0143 31 0001 28: BRW 21 : 
55 1C AE DO 00016 3$: MOVL OPERATION, R5 : 0748 
08 55 D1 OOO1A CMPL oS, #11 ; | 
03 12 0001D BNEQ  4$ : 
00EO 31 OOO1F BRW 16$ : 
58 AD 28 «AB «=O 900¢¢ 4$ MOVL  40(RAB), 88(IRAB) : 0754 
56 OAD 22 AB BO 000 MOVW  § 34(RAB). 86(IRAB) : 0755 
01 50 AA 91 0002C CMPB ss BOC IFABS, #1 : 0760 
09 12 00030 BNEQ 5$ : 
52 AA 56 AD Bi 80036 CMPW 86(IRAB), 82(1FAB) : 0764 
OE 13 00 BEQL © 6$ ; 
59 11 00039 BRB 12$ : 0766 | 
60 AA 83 900 B S$: TSTW  96(1FAB) : 0769 | 
07 00 BEQL -6$ : 
60 AA 56 AD «Bl 0004 CMPW  86(IRAB), 96(1FAB) ; 0771. 
4D 1A 0004 BGTRU 12$ : | 
7E D4 00047 68: CLRL = = (SP) : 0788 | 
000000006 EF 16 00049 JSB RSKEY _DESC : 
ae 6 §8 0085 appte 2$ | 
BF 17 29 gf, 28 MOVZBL stars, _DFN), R1 : 0790 | 
51 51 09 78 0059 ASHL 9, RI RI : | 
50 51 19 a3 0005 SUBW3 56 ri Pa SIZE + 0792 
03 1¢ «6A? «ED 00061 BLBC (fox > 0794 
50 04 A2 00065 SUBW2 Bick tt n! 1E : 0796 | 
01 50 AA 91 00068 7$: CMPB 80 oUF : 0798 | 
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000000006 
Ag 
08 


06 


RMSRMS_JOURNAL + 0151 


350 bytes, Routine Base: 


; Routine Size: 


eee... 
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v04-000 

; 864 0923 
; 865 4 4 
; 866 925 
; 867 0926 
; 868 0927 
; 869 0928 
; 870 0929 
; 871 0930 
; He; 0931 
; 67 $336 
3; 874 09 

: 87> 0934 
; 876 0935 
3; 877 0936 
; 878 0937 
; 879 0938 
; 880 0939 
; 881 0940 
3 aoe 0941 
; «488 bk 
3; 884 094 

; 885 0944 
; 886 0945 
s 687 0946 
; 888 0947 
; 889 0948 
; 890 094 

; «4891 0950 
; 89 0951 
: 89 095 

; 894 095 

; 895 0954 
; 896 0955 
; 897 0956 
; 898 0957 
: 899 0958 
; 900 0959 
; 901 0960 
: 902 0961 
; 903 0962 
: 904 0963 
3; 905 0964 
; 906 0965 
; 907 $366 
; 908 96 

; 909 0968 
; 910 0969 
: 6911 0970 
3 alg 0971 
; 91 097 

; 914 097 

: «915 0974 
: 916 0975 
: 917 976 
; 918 977 
: 919 0978 
: 920 0979 


ee ee ee ee ee ee ee ee ee eS Ss 
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ZSBTTL "RMSRU_REFORMAT' 


GLOBAL ROUTINE RM$RU_REFORMAT 


lee 


FUNCTIONAL DESCRIPTION: 
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: RLSRABREG_567 NOVALUE = 


This routine's responsibility is to reformat primary data records which 
have decreased in size during an SUPDATE within a eSeneees unit and 
consequently were placed in a special format to reserve the space that 
would otherwise have been freed. Such records have the control bi* 
IRC$V_RU_UPDATE set. 


These records are in a special format in that two record sizes are 
associated with them. The number of bytes the primary data record 
reserves in the bucket (not including tne record overhead) is stored 
in the record size field in the record overhead. The true size of the 
record is stored in the last two bytes of the primary data record. 


This routine reformats the primary data record by: 


1. sleqring the IRC$V_RU_UPDATE control bit. } 

2. a ing true record size into the record size field of the record 
overhead. 

3. Eliminating the space reserved by the record by shifting over the 
oer data records that follow it in the primary data bucket, so 
that this reserved space is freed. 

4. Adjusting the bucket's preseeees offset pointer to reflect the bytes 
which have been freed through the reformating of the record. 


CALLING SEQUENCE: 


RMSRU_REF ORMAT () 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUT: 


BKT_ADDR - address of the primary data bucket 
BKTSW_FREESPACE - bucket's freespace offset pointer 
REC_ADDR - address of the record to be reformated 
OUTPUT PARAMETER: 
NONE 


IMPLICIT OUTPUT: 


BKT - address of the primary data bucket 


ADDR 
“BK TSW_FREESPACE - bucket's freespace offset pointer 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
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RMSRU_REFORMAT 14-Sep-19 4 1biOF ioe LAMS -SROIRM JOURNL .B32; 1 ° vo! 
0980 1! The record is reformatted, and the bucket's freespace offset pointer | ; 
$8 ! is updated to reflect the bytes which have been freed. ; 
09 : 1 i= ; 
984 #1 | P 
4 BEGIN : 
Bee $ 
098 EXTERNAL REGISTER 5 
0988 R_BKT_ADDR_STR, : 
0989 COMMON RAB"STR, | ; 
0990 _1DX_DFN : 
0991 R-REC-ADDR_STR; | ; 
p44 FH 
099 OCAL $ 
0994 FAKE SIZE, : 
0995 2 LEN 3 
0996 2 SAVE_REC_ADDR, | ; 
2044 é TRUE_SIZE; : 
7444 § ; Clear the special record format bit in the record's control byte. : 
1001 : REC_ADDRCIRCSV_RU_UPDATE] = 0; : 
1008 é : Place the true size of the record in the record size field of the record ‘ 
1004 2 ! overhead. This size maybe found in the last two bytes of the record proper F 
1oo2 2 as it currently exists in the primary data bucket. : 
1007 § BEGIN | ; 
1008 3 3 
1009 3 LOCAL $ 
1010 3 REC_SIZE; $ 
1011 3 3 
1018 3 SAVE_REC_ADDR = .REC_ADDR; | ; 
1013 3 REC_ADDR = .REC_ADDR + RMSREC_OVHD(0; REC_SIZE); 3 
1014 3 FAKE_SIZE = ,RECWSIZE; | ; 
ig gt nat 
1017 2 TRUE_SIZE = .(.REC.ADDR + .FAKE SIZE - IRCSC_DATSZFLD)<0, 16>; | 
+ a § (.REC_ADDR = IRCS$C_DATSZFLD)<0,16> = .TRUE_SIZE; ; 
1021 2 ! If there are any records following the current record, shift them down ; 
1022 2 ! in the primary data bucket so that the space, fornerly reserved by this : 
196 § ! special record, is now utilized, and the corresponding amount of space : 
1058 is made available. : 
1966 ; LENGTH = -BKT_ADDRCBKT$W_FREESPACE] = (.REC_ADDR + .FAKE_SIZE - .BKT_ADDR); | : 
1028 IF .LENGTH GTRU 0 | i 
1029 THEN : 
1030 BEGIN 3 
1031 : 
1936 GLOBAL REGISTER : 
1034 R_BDB; : 
1035 RMSMOVE (.LENGTH, (.REC_ADDR + .FAKE_SIZE), (.REC_ADDR + .TRUE_SIZE)); : 
1036 2 END; : 


RMS JOURNL 
v04-000 


Se ee ee Se Se eres tes 
ooovowno 
fe] 


; Routine Size: 


; 989 


F 11 
RMSRU_REFORMAT 1e-Sep=1984 13:01:26 ERMS.SRCIRASJOURNL-830;1 


1037 
1038 ! Adjust the bucket's freespace offset pointer to reflect the amount of 
1039 ! space which has become available through reformatting of the current 
ier record. 
1048 BKT_ADDRCBKTS$W_FREESPACE] = -BKT ADOREBKT Sw FREESPACE] 
104 -PAKE_SIZE =". TRUE_SIZE); 
1044 REC_ADDR = .SAVE_REC_ADDR; 
1045 1 END? 
1C BB 00000 RMSRU_REFORMAT:: 
USH wimcR2, R3,R4> 
5E 04 C2 00002 SUBL a4 
66 40 8F 8A 00005 BICB2 #64, ADDR) 
53 56 DO 00009 MOVL REC * ADDR: “SAVE_REC_ADDR 
51 D4 0000C CLRL R1 
000000006 EF 16 O000E JSB RMSREC_OVHD 
56 0 CO 00014 ADDL2 RO, RET_ADDR 
52 51 D0 00017 MOVL. REC_SIZE, FAKE_SIZE 
54 56 52 cl 0001A ADDL3 FAKE_SIZE, REC-ADDR, R4 
51 FE AG 3C OOO1E MOVZ2WL -2(R%), TRUE SIZE 
FE Ab 51 80 00022 TRUE_SIZE, -2(REC_ADDR) 
50 55 54 ¢ 00026 R4, 6 R 
6E 04 AS 3C OO02A MOVZWL 4(8KT ~ADDR) » (SP) 
50 6E 3 pooee ADDL2 (SP), 
OE 13 00031 BEQL 
6146 9F 00033 PUSHAB (TRUE_SIZE)CREC_ADDR] 
11 BB 00036 PUSHR #*M<RO,R4> 
000000006 EF 16 00038 JSB RMSMOVE 
5E 0c CO O003E ADDL2 #12, SP 
51 52 C2 00041 1$ SUBL2 FAKE_SIZE, R1 
046 «AS 51 AO 00044 ADDW2 R1, &(BKT_ADD 
56 53 D0 00048 MOVL SAVE_REC_ADDR, REC_ADDR 
5E 04 CO 00048 ADDL2 4, 
1C BA O004E POPR #°M<R2,R3,R4> 
05 00050 RSB 
81 bytes, Routir: Base: RASRMS_JOURNAL + O2AF 
1046 
1047 1 END 
1048 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
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RMS JOURNL 18-88 -S$ep-1984 01:48:05 AX-11 Bliss-32 V4.0-7 Pp 26 RM: 
y0z~000 RMSRU_REFORMAT 14- Hat 9 95568 198 RMS.SRCIRMS3JOURNL. B32; — (6) v0 


; RMSRMS_ JOURNAL 768 NOVEC,NOWRT, RD , EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


~panenrinemel Symbols ------<- Pages Processing 
File Total Loaded Percent Mapped e 
.$255$DUA28: pans -08 1 Ens iUTOFF « L32;1 1484 74 & 83 00:00.2 
~$255$DUA28: (SYSLIBILIB.L32;1 18619 43 0 1000 00:04.6 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RM3JOURNL/OBJ=OBJ$:RM3JOURNL MSRC$:RM3JOURNL/UPDATE=(ENH$:RM3JOURNL ) 


; Size: 768 code + © data bytes 
; Run Time: 00:25.3 | 
; Elapsed Time: 00:48.7 
; cines/CPY Min: 2485 
; Lexemes/CPU-Min: 14022 
: aanecy Used: 183 pages 
; Compilation Complete | 
| 
| 
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